home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
dbasii.arc
/
ADDSUB.PRG
next >
Wrap
Text File
|
1980-01-01
|
1KB
|
36 lines
* ADDSUB.CMD - adds new SUBJECT entries to an existing library reference.
* This is a subprogram called by GUIDE.CMD
* by M. Timin, November 1982
* Get the record number of the existing reference
erase
STORE 1 TO RECNUM
INPUT "Enter the record number: " TO RECNUM
SELECT PRIMARY
GOTO RECNUM
* enter data into one or more new SUBJECTS records:
SELECT SECONDARY
STORE F TO DONE
DO WHILE .NOT. DONE
ERASE
STORE " " TO SUB
@ 2,9 SAY P.DESCRIP
@ 4,2 SAY "Enter a SUBJECT name under which this"
@ 5,2 SAY "reference might be classified" GET SUB picture '!!!!!!!!!!!!'
@ 7,2 SAY "(Hit return when there are no more subjects.)"
READ
IF SUB=" "
STORE T TO DONE
ELSE
? "Is "+SUB+" correct? "
WAIT TO WHATKEY
IF WHATKEY="Y" .OR. WHATKEY="y"
APPEND BLANK
REPLACE KEY WITH $(P.FILE,1,6)+$(P.SEARCHKEY,1,8)+STR(P.DISK,2)
REPLACE SUBJECT WITH SUB
ENDIF
ENDIF
ENDDO
RETURN
WITH $(P.FILE,